home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Graphics / pset < prev   
Encoding:
Text File  |  1986-10-24  |  353 b   |  23 lines  |  [TEXT/MSBB]
  1. PRINT "PSET"
  2.  
  3. start = TIMER   ' calculate the overhead
  4. FOR i% = 1 TO 30000
  5. NEXT i%
  6. finish = TIMER
  7. overhead = finish - start
  8.  
  9. start = TIMER
  10. FOR i% = 1 TO 30000
  11.     PSET(100,100)
  12. NEXT i%
  13.  
  14. finish = TIMER
  15.  
  16. PRINT "finish = ";finish
  17. PRINT "start  = ";start
  18. PRINT "Overhead = ";overhead
  19.  
  20. PRINT ((finish - start)-overhead); " seconds"
  21. WHILE INKEY$ = "" : WEND
  22.  
  23.